home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / fortran / peekpo.com / GETL.FOR < prev    next >
Encoding:
Text File  |  1990-10-16  |  230 b   |  10 lines
  1.       PROGRAM CRT_READ_F77L
  2.       integer*4 icrt /z'B8000000'/      ! Color adapter
  3.       character*40 capture
  4. c
  5.       call get_it(carg(icrt),5,10,40,capture)
  6.       print *, 'capture="',capture,'"'
  7. c
  8.       stop
  9.       end
  10.